home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_229_Stock Price - Auto.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  83 lines
  1. ItemType: WIND
  2. Rect: 317,474,632,579
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Stock Price - Auto
  8. Params: i4_Text┬i6_Text┬i0_TopLeft┬i3_Disabled┬i6_Selection┬i8_Text
  9. Result: i6_Text┬i8_Text
  10.  
  11. ItemType: PUSH
  12. Rect: 224,75,296,95
  13. AutoSize: FALSE
  14. Name: Register
  15. DefaultItem: TRUE
  16. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"newprice","text")┬put it into xxx┬if (xxx=empty) or (xxx=0) then┬  alertNote("Enter a price, cancel or skip.")┬else┬  wsSend wdID,"0","close"┬end if      ┬--end mouseUp
  17.  
  18. ItemType: PUSH
  19. Rect: 119,75,199,95
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: PUSH
  25. Rect: 15,75,95,95
  26. Name: skip
  27.  
  28. ItemType: TEXT
  29. Rect: 8,2,288,20
  30. TextSize: 12
  31. AutoSize: FALSE
  32. Name: Stock
  33.  
  34. ItemType: TEXT
  35. Rect: 8,114,308,146
  36. TextFont: Geneva
  37. TextSize: 10
  38. AutoSize: FALSE
  39. Name: instr
  40. Text: Enter the price either as decimals or with a space between the whole number and fraction {e.g., 67.125  or  67 1/8}.
  41.  
  42. ItemType: TEXT
  43. Rect: 69,35,149,57
  44. TextSize: 12
  45. AutoSize: FALSE
  46. Name: newprice
  47. LockText: FALSE
  48. TextAlign: Right
  49.  
  50. ItemType: LBL
  51. Rect: 174,38,233,51
  52. TextFont: Geneva
  53. TextSize: 10
  54. Text: Multiplier:
  55.  
  56. ItemType: TEXT
  57. Rect: 233,37,293,54
  58. TextFont: Geneva
  59. TextSize: 10
  60. AutoSize: FALSE
  61. Name: mult
  62. LockText: FALSE
  63. Text: 1.000
  64.  
  65. ItemType: PUSH
  66. Rect: 293,4,309,24
  67. AutoSize: FALSE
  68. Name: ?
  69. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"0","Height")┬if it>200 then┬  wsSet wdID,"0","Height", "105"┬else┬  wsSet wdID,"0","Height", "272"┬end if┬--end mouseUp
  70.  
  71. ItemType: LBL
  72. Rect: 28,37,68,53
  73. TextFont: Geneva
  74. TextSize: 12
  75. Text: Price:
  76.  
  77. ItemType: TEXT
  78. Rect: 8,152,308,272
  79. TextFont: Geneva
  80. TextSize: 10
  81. AutoSize: FALSE
  82. Name: instr2
  83. Text: The default ╥multiplier╙ is set in the Preferences section. Enter a multiplier besides 1 if you want the price used for calculations to be a multiple of the number you enter as the ╥price╙ (e.g., if you enter cents rather than dollars, set the multiplier to be 0.01 to yield standard ╥dollar╙ formats).┬┬Click ╥cancel╙ to discontinue entry process. If you are using Easy-enter, click ╥skip╙ to move on to the next stock without changing this one.